'
'       This example shows how to access the shader on an object
'
NewScene , false
dim root, grid
set root = ActiveProject.ActiveScene.Root
set grid = root.AddGeometry("Grid", "MeshSurface")
'Create a Lambert shader
grid.AddMaterial "Lambert" 
'Access the new Shader
LogMessage "Shader name:" & grid.Material.Shaders(0).Name

'
'       This example shows how to recursively search a render tree
'
'       It shows how to access Shaders via the Source property of a Parameter
'       It also shows how to use XSICollection object to accumulate a list of objects
'
'       Note: to find ImageClips the Material.ImageClips property can be used rather
'       a recursive scan like this.  And the FindObjects command can be used to find
'       all shaders of a particular type.
'
set oObj = BuildDemoScene                       ' Create a little sample render tree
FindShaders(oObj)                                       ' Search the scene to find and log shaders
' ---------------------------------------------------
' Expected results:
' INFO : Skipping Sources.Materials.DefaultLib.Material.Phong
' INFO : SUMMARY: Searched 2 shader(s)
' INFO : SHADERS SEARCHED:
' INFO : Sources.Materials.DefaultLib.Material.Phong
' INFO : Sources.Materials.DefaultLib.Material.Lambert
' ---------------------------------------------------
' This is the actual code doing the searching
sub FindShaders( in_oObj )
        dim oShaderList, oImageClipList
        set oShaderList = CreateObject("XSI.Collection")
        oShaderList.Unique = true
        ' We expect the input object to be a "SceneItem" object
        set oMat = in_oObj.Material
        ' Although not actually a shader, we start searching
        ' for shaders from the parameters of the material
        SearchShader oMat, oShaderList
        Application.LogMessage "SUMMARY: Searched " & oShaderList.Count & " shader(s)"
        if ( oShaderList.Count > 0 ) then
                Application.LogMessage "SHADERS SEARCHED:"
                for each oShader in oShaderList
                        Application.LogMessage oShader.Fullname
                next                            
        end if
end sub
' Recursively search any connected shaders
' Each shader is visited only once
sub SearchShader( in_oShader, io_oVisitedShaderList)
        for each oParam in in_oShader.Parameters
                if typename( oParam.Source ) = "Shader" then
                        if ( NOT IsShaderInList(oParam.Source, io_oVisitedShaderList) ) then
                                io_oVisitedShaderList.Add(oParam.Source)
                                ' Recursively search this shader
                                SearchShader oParam.Source, io_oVisitedShaderList 
                        end if 
                end if
        next
end sub
' Determines if a shader is already in an XSICollection
function IsShaderInList( oShader, io_oVisitedShaderList )
        for each oVisitedShader in io_oVisitedShaderList        
                if (oVisitedShader.FullName = oShader.FullName) then
                        Application.LogMessage "Skipping " & oShader.FullName
                        IsShaderInList = true
                        exit function
                end if
        next
        IsShaderInList = false 
end function
' ---------------------------------------------------
' Create a little sample render tree
' It has no interesting visual appearance but is a render tree with
' various shaders and two images so that we can demonstrate the 
' FindImageClips routine
'
' Return value is the X3DObject
function BuildDemoScene
        ImageFile1 = XSIUtils.BuildPath(_
                Application.InstallationPath(siFactoryPath), _
                "Data", "XSI_SAMPLES", "Pictures", "jaiqua_face.jpg" )                  
        ImageFile2 = XSIUtils.BuildPath(_ 
                Application.InstallationPath(siFactoryPath), _
                "Data", "XSI_SAMPLES", "Pictures", "ehair_08.jpg" )                     
        NewScene , false
        set oObj = ActiveSceneRoot.AddGeometry("Sphere", "MeshSurface")
        oObj.AddMaterial "Phong" 
        dim oPhongShader, oAmbientParam, oDiffuseParam, oShinyParam
        set oPhongShader = oObj.Material.Shaders(0)
        set oAmbientParam = oPhongShader.Parameters("ambient")
        set oDiffuseParam = oPhongShader.Parameters("diffuse")  
        set oShinyParam = oPhongShader.Parameters("shiny")      
        dim oImageClip1, oImageClip2
        SICreateImageClip ImageFile1, ,oImageClip1      
        SICreateImageClip ImageFile2, ,oImageClip2
        dim oImageNode1,oImageNode2
        set oImageNode1 = oAmbientParam.connectfrompreset("Image", siTextureShaderFamily)
        oDiffuseParam.Connect(oImageNode1)      
        oImageNode1.Parameters("tex").Connect(oImageClip1)
        set oImageNode2 = oShinyParam.connectfrompreset("Image", siTextureShaderFamily)
        oImageNode2.Parameters("tex").Connect(oImageClip2)
        ' Commands can also be used to build a render tree
        CreateShaderFromPreset "Shaders\Material\Lambert.Preset", "Sources.Materials.DefaultLib.Material"
        SIConnectShaderToCnxPoint "Sources.Materials.DefaultLib.Material.Lambert", oObj.Material & ".Photon"
        ' Return the sphere
        set BuildDemoScene = oObj
end function

/*
        This example lists all installed shaders with their ProgId and OutputType, 
        plus all texturable parameters and their shader input type.
*/
var re = / /g;
var strShaderNames = Dictionary.info("",siShaderFamily).replace(re,"");
var aShaders = strShaderNames.split(",");
XSIUtils.QuickSort( aShaders );
var colitem = XSIFactory.CreateObject("XSI.CollectionItem");
var cShaders = 0;
for ( var i = 0; i < aShaders.length; i++ )
{
        var shader = null;
        var progid = "Softimage." + aShaders[i];
        if ( progid == "Softimage.TraversalCallback" ) continue;
        try {
                shader = XSIFactory.CreateObject( progid );
        } catch (e) {
                logmessage( "Error: can't create shader : " + progid );
                continue;
        }
        cShaders++;
        logmessage( progid + " " + ShaderParameterTypeAsText(shader.OutputType) );
        var params = shader.parameters;
        for ( var j = 0; j < params.count; j++ )
        {
                var param = shader.parameters(j);
                if ( param.capabilities & siTexturable )                                    
                        logmessage( "\t" + param.name + " " + ShaderParameterTypeAsText(shader.GetShaderInputType(param.scriptname)));
        }
}
logmessage( "Shaders found = " + cShaders );
function ShaderParameterTypeAsText(type)
{
        switch (type)
        {
                case siUnknownParameterType : return "siUnknownParameterType";                  
                case siBooleanParameterType : return "siBooleanParameterType";                  
                case siColorParameterType : return "siColorParameterType";                      
                case siDataParameterType : return "siDataParameterType";                        
                case siIntegerParameterType : return "siIntegerParameterType";                  
                case siLensParameterType : return "siLensParameterType";                        
                case siLightParameterType : return "siLightParameterType";                      
                case siMaterialParameterType : return "siMaterialParameterType";                        
                case siMatrixParameterType : return "siMatrixParameterType";                    
                case siModelParameterType : return "siModelParameterType";                      
                case siRealTimeParameterType : return "siRealTimeParameterType";                        
                case siReferenceParameterType : return "siReferenceParameterType";                      
                case siScalarParameterType : return "siScalarParameterType";                    
                case siShaderParameterType : return "siShaderParameterType";                    
                case siStringParameterType : return "siStringParameterType";                    
                case siStructParameterType : return "siStructParameterType";                    
                case siTextureParameterType : return "siTextureParameterType";                  
                case siTextureSpaceParameterType : return "siTextureSpaceParameterType";                        
                case siVectorParameterType : return "siVectorParameterType";                    
                default: return type;
        }
}
//